home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / bas_int1.zip / RESETPRN.BAS < prev    next >
BASIC Source File  |  1991-06-09  |  486b  |  20 lines
  1. '===============================================================
  2. ' Quick Basic Forum
  3. '   Date : 21-Apr-91
  4. '   From : Bob Edwards
  5. Subject : Initialize printer
  6. '===============================================================
  7. 'This works on most printers except HP laser's then I use ESC,E or
  8. 'LPRINT CHR$(27);"E"
  9.  
  10. 'Must load a library with CALL INTERRUPT
  11. ' such as QB.QLB & QB.LIB
  12.  
  13. ' $INCLUDE:'QB.BI'
  14.  
  15.  
  16. InRegs.Ax = &H100
  17. InRegs.Dx = &H0
  18. Interrupt &H17, InRegs,OutRegs
  19.  
  20.